home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / ikarino / yume.bas next >
BASIC Source File  |  1994-06-01  |  2KB  |  78 lines

  1. 1 '              ↑さぁすぐにでも
  2. 2 '              実行しよう
  3. 3 '
  4. 4 '
  5. 5 '        怒りのゴリとウッホー 「夢編」
  6. 6 '   
  7. 7 '             by横田哲也
  8. 8 '    ※注意
  9. 9 '    このソフトはソースリストを見るとつまらないので
  10. 10 '    読み込んだらすぐに実行しましょう
  11. 11 '
  12. 12 '
  13. 13 '
  14. 14 '
  15. 15 '
  16. 16 '
  17. 17 '
  18. 18 '
  19. 19 '
  20. 20 '
  21. 21 '
  22. 22 '
  23. 23 '     ここから下を見ることを禁ず!!
  24. 100 '
  25. 110 '
  26. 120 DIM BUN$(100):W=0:NO=28
  27. 121 SCREEN 0:SCREEN@0:CLS:PALETTE:PALETTE 1,0
  28. 122 W=INP(&H5EC)
  29. 123 OUT &H5EC,0
  30. 130 FOR I=0 TO NO
  31. 140 READ BUN$(I)
  32. 150 NEXT
  33. 160 FOR I=0 TO NO
  34. 170 SYMBOL (320-LEN(BUN$(I))*4,235),BUN$(I),1,1,%1
  35. 180 GOSUB *PLL_ON:WAIT 100:GOSUB *PLL_OFF:CLS
  36. 190 NEXT
  37. 191 PALETTE:OUT &H5EC,W
  38. 200 END
  39. 210 *PLL_ON
  40. 220 FOR P=0 TO 255
  41. 230 PALETTE 1,[P,P,P]:WAIT 1
  42. 240 NEXT
  43. 250 RETURN
  44. 260 *PLL_OFF
  45. 270 FOR P=0 TO 255
  46. 280 PALETTE 1,[255-P,255-P,255-P]:WAIT 1
  47. 290 NEXT
  48. 300 RETURN
  49. 310 DATA 怒りのゴリとウッホー  「夢編」
  50. 320 DATA 【私が見たBAD DREAM】
  51. 330 DATA 原作  野口裕子
  52. 340 DATA 著作 横田哲也・横田悦子
  53. 345 DATA  
  54. 350 DATA その日私は何故か古賀君ちで二人で話をしていた。
  55. 360 DATA そしたら、古賀君が
  56. 370 DATA 「つぶつぶオレンジジュース飲む?」
  57. 380 DATA と、聞いてきたから
  58. 390 DATA 「うん、飲む!!」
  59. 400 DATA と、元気良く答えた。
  60. 410 DATA 来た物を見たらオレンジジュースの中に
  61. 420 DATA ご飯粒が入っていた…
  62. 430 DATA それを、古賀君はおいしそうに飲んでいて
  63. 440 DATA 「お前の分も作ってやるよ」
  64. 450 DATA と、言ってオレンジジュースとご飯を取り出してきて
  65. 460 DATA 「温かいご飯よりも冷えたご飯のほうが」
  66. 465 DATA 「旨いんだよな」
  67. 470 DATA と、にこにこしながら作ってくれた。
  68. 480 DATA 「いやー!!」
  69. 490 DATA と、叫んだ瞬間目が覚めた
  70. 500 DATA 悪夢だった…
  71. 505 DATA  
  72. 510 DATA 完
  73. 520 DATA 制作・企画 横田哲也
  74. 530 DATA 協力  横田悦子・野口裕子
  75. 540 DATA この作品はフィクションであり実在するものとは一切関係有りません
  76. 550 DATA 最後まで見てくれてありがとうございました
  77. 560 DATA 「怒りのゴリとウッホー」シリーズをこれからもよろしく
  78.